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“SEP=1984 01:49:14 EMACRO- SRC JMACSUB.MAR; 1 (1) | 

TITLE MACSMACSUB SUBROUTINES FOR VAX-11/780 ASSEMBLER 
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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 

ABSTRACT: 


The VAX-11 MACRO assembler translates MACRO-32 source coJe into object 
modules for input to the VAX-11 LINKER. 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 21-AUG-78 
MODIFIED BY: 


we RRBOO31 owland R. Bradley 09-Jul-1984 
Use ; ibstrin _Filespec m Treert the tilenene on the 
ng. 
v03-001 RRBO030 owland R. Bradley 08-Jul-1984 


9py expanded filename sarin into the header. Expanded 
£9 ename string is pointed to by FABSL_FNA because the 
routine LIBSFIND FILE was used to determine the name in 
module MAC$GETCMD. The name was subsequently copied from 
the result of the LIBSFIND_FILE. 


v02-019 BLS0057 Benn Schreiber 13-Jun-1981 
Correct reference to SUMSINIT_EDIT to “ee General addressing mode 


ND AE AN SO OD NAME WN SO OO NAME WIN S$ OS OONAUES WN CO OONOUSWN-OOONOUS wn 


See Se Se Se Se Ge Se Ge Se Se Se Ge Se Ge Sete Ge Ge Ge Ge te Ge Ge Ge Ge Ge Ge Ge 
+ 


MUMMIES BE BEE EEE BWW nononononononononony 3 2 


MAC 
v04 


a Ss A ss Sea . , } 


MACSMACSUB 
v04-000 


dD 11 
FOR VAX=11/780 ASSEMBLER 16-SEP-1984 02:09:11 VAX/VMS M v04-00 P MAC 
3 BF 08i fy Cima — 3 


SUOROUT INES 
- DECLARATIONS -SEP-1984 MACRO. SRCJMACSUB.MAR; 1 v04 
23 -SBTTL DECLARATIONS 
61 ; INCLUDE FILES: 
9g 
6 
0 64 ; 
8 65 ; MACROS: 
66 ; 
00 67 
000 68 SRABDEF ;DEFINE RAB OFFSETS 
0000 §? $F ABDEF sDEFINE FAB oe hy 
8088 0 SMAC_CTLFLGDEF ;DEFINE CONTROL FLAG 
71 SMAC_GENVALDEF ;DEFINE GENERAL VALUES 
5908 ie SMAC_MLFDEF 3; Define MLF offse 
01 7 SMAC_SYMBLKDEF ;DEFINE SYMBOL BLock OFFSETS 
B08 74 SMACASGDEF : Define message codes 
000 75 SMAC_MNBDEF : Define MXB offsets 
0008 76 
0008 77; 
0008 78 ; EQUATED SYMBOLS: 
0008 79 3 
0008 80 
0008 +t 3 
0008 ¢ ; OWN STORAGE: 
0008 a> 3 
0008 84 
00000000 85 PSECT MACSTEMP_STOR,WRT,GBL,LONG 
0000 86 
OOF F 87 


| 
| 
| 
| 
SDEF NACSAB_ TMP SPEC TBLKB. 255 ; TMP STOR FOR LIBSTRIM_FILESPEC | 
ALIGN” LONG 
| 
| 
| 
| 
| 


vou2000 SUBRDUIINGSSFOR var-11/780 assenateh! —1g-sep-19g4 95:08:1) YAN/yRS nacre yB-Oe | Page, 


00008008 30 


~PSECT MACS$RO_CODE_P15,NOWRT,GBL,LONG 


rr 


p11 
FOR VAX=11/780 ASSEMBLER 16-SEP-1984 02:08:11 VAX/VMS Macro 04-00 Page 4 OL 
ORMAT ASCII STRINGS ~3EP-1984 01:49:14 LMACRO.SRCIMACSUB MAR; 1 (8) 


SUTBUF=L“MACSG LSTBUFDES.- 
OUTLENS baRACSGC LINELN,- 


PRMLST=(R1) 
0000'CF 00000000" 8F pate PMACSK -LIST_SIZE,W*MACSGL_LINELN 


3 -SBTTL MACSFAOUT FORMAT ASCII STRINGS 
94 3+ 
9 a2 ; FUNCTIONAL DESCRIPTION: 
0 99 § THESE THREE ROUTINES ARE USED TO FORMAT ASCII STRINGS 
4 8 ; USING SFAOL. THERE ARE THREE ENTRY POINTS: 
00 190 ; MACSFAOUTS THE ARGUMENT LIST IS PUSHED ONTO THE STACK 
00 101 ; BEFORE CALLING. THE CALLER MUST CLEAR THE 
000 : ¢ 3 STACK ON RETURN 
$09 104 ; MACSWRT_FAOUTS SAME AS MACSFAOUTS EXCEPT THAT MACSWRTLST 
44 ! S$; IS CALLED TO WRITE THE LINE BEFORE RETURNING. 
itd 109 ; MACS$F AOUT THE ARGUMENT LIST IS POINTED TO BY R1 
0000 108 ; 
Bn88 109 ; INPUTS: 
000 110; 
0000 111 : RO FAO CONTROL STRING 
0000 ie 3 
0000 «(11 : OUTPUTS: 
0000 114 : 
8098 M2 é 3 MACSGL_LINELN ADJUSTED AND READY TO CALL MACSWRTLST 
0000 19 i-- 
0000 118 
0000 119 MACSWRT_FAOUTS:: 
51 04 AE | 0000 120 MOVAB 4(SP),R1 ;POINT TO THE ARGUMENT LIST 
07 1 0004 121 8SBB MACSFA FAQUT sFORMAT THE STRING 
FFF7" 31 b006 } ¢ BRW MACSURTEST ;WRITE LINE TO LISTING AND RETURN 
0009 124 MACSFAOUTS:: 
51 04 AE 9E 0009 125 4(SP),R1 ;POINT TO THE ARGUMENT LIST 
000D 1 § MACSFAOUT:: 
000D 1 SFAOL_S CTRSTR=(RO) sFORMAT THE STRING 
000D 128 
000D 129 
000D 130 
0024 131 
002D 6132 
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y0%~000 MACSSET_PC RECORD HIGH WATER PC mie 7 fF 08 tt MACRO. SRCJMACSUB.MAR; 1 — db 
E ~SBTTL MACSSET_PC RECORD HIGH WATER PC 
i 34 
: ; FUNCTIONAL DESCRIPTION: 
E 3 us og it IS CALLED TO STORE THE PC IN PSC$L_MAXLGTH 
E ; FOR re HE CURRENT PSECT IF IT IS HIGHER THAN THE STORED 
E ; PC THERE. IT SHOULD BE CALLED ANY TIME THE PC IS ADJUSTED 
0 : ; BACKWARDS, OR BEFORE CHANGING PSECTS. 
0 : t<- 
E MACSSET_PC:: : 
50 O000'CF D0 : MOVL W*MACSGL_PSECTPTR,RO —_:POINT TO CURRENT PSECT 
05 AO O000'CF 01 CMPL W*MACSGL"PC,PSCSL_MAXLGTH(RO) ;CURRENT PC HIGHER THAN STORED? 
06 iF 00 BLSSU :1F LSSU NO 
05 AO 0000'CF b0 00 MOVL § W*MACSGL_PC,PSCSL_MAXLGTH(RO) ;YES--SET NEW PC 
0 Boe 10$: RSB 


004 


;+4 
004 ; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE UPDATES MACSGL_LSB TO THE NEXT AVAILABLE LSB. 


MACSSET ~NEW LSB:: 
OVAB 


DDRDEEDPRED DADA PAD Pars Be BB BB BEE PAA A OO 


i kk kk dt eT 
CNAME WIN SO OONAUE WIN 0 OD NAOUEAN  OOONOUSE 


OOooooo 

oO ooo 

PPLE 
OFW 9 WD Ponononononofnononon—@ oO 


50 OO000'CF 9E 004 WeMACSGL LSB,RO sPOINT TO THE W 
04 AO 60 D1 004 CRPL (RO) ,4(R0) 'CAN WE JUST INCREMENT L 
07 #1F 004 BLSSU_-:10$ IF LSSU NO=-MUST USE HiGHe st at s8 PLUS 1 
04 A0 60 D0 004 MOVL (RO) ,4(RO) TYES--STORE HIGHEST LSB so 
60 3 B03 Inch (RO) 3 INCREMENT TO NEXT L 
60 04 A0 01 €1 005 10$: ADDL3) #1,4(R0), (RO) ‘USE HIGHEST LSB + 1 
05 005 RSB 


MACSMAC SUB 
vO6-000 


OF 

50 0000°CF 

51 80 

26 51 

5 80 

Be 

F7 52 

OOOO'CF 51 FFFFFF8O 8F 
OF 


COCO COCOCOCOOOOOCO OOOO OOOOCOOOOOoOe 
i a kkk a a a kd 
DNAUE WN" OOONAUE WN CO OONOUES WO CO 


SOOO OOCOOCOOoOoOoOoCOoOoO 
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UBROUTINES FOR VAX=11/780 ASSEMBLER 
RM HASH VALUE FOR SYMBOL 


.SBTTL MACSHASH_SYM 


* FUNCTIONAL DESCRIPTION: 

THIS ROUTINE ACCUMULATES THE HASH VALUE FOR A SYMBOL. 
INPUTS: 
MACSAB_TMPSYM 
OUTPUTS: 
MACSGL_HSHVAL 


SYM:: 
USHR 


AX/VMS Macro V04-00 
MACRO.SRCJMACSUB.MAR; 1 


FORM HASH VALUE FOR SYMBOL IN MACSAB_TMPSYM 


THE SYMBOL NAME (LENGTH, NAME) 


ACCUMULATED HASH VALUE 


#*M<RO,R1,R2,R3> S 
W*MACSAB_TMPSYM,RO HE SYMBOL NAME BLOCK 
(RO)+,R1 BE A ay IN NAME 


R2,10$ 
#°C<HASHSZ>,R1,- 
W°MACS$GL_HSHVA 


HASH TABLE 
TORE HASH VALUE 
#°M<RO,RT,R2,R 


- 
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v04-000 TRUNCATION CHECK ROUTINES g: ~SEP=1984 4 89:93 MACRO. SRCJMACSUB.MAR; 1 . 
7D 0 .SBTTL TRUNCATION CHECK ROUTINES 
p ! 3 ++ 
gp iF FUNCTIONAL DESCRIPTION: 
070 5; THIS ROUTINE CHECKS THE VALUE ON THE TOP OF THE VALUE STACK 
£p $ ; FOR UNSIGNED BYTE TRUNCATION. 
OP § + INPUTS: 
Hf 10 ; RS POINTS TO VALUE TO CHECK 
7D 12 : 
07D 15 MACSCK_BYT TRUI1:: 
55 04 AE DE 07D 21% MOVAL 4(SP),RS sPOINT R5 TO THE WORD 
0A 10 0081 15 BSBB MACSCK. BYT_TRUN ‘CHECK FOR TRUNCATION 
06 50 £8 085 18 BLBS RO,10$7 ‘BRANCH IF NO ERROR 
SAP BE SS Se SG seperated, 
05 008¢ i8 10$:  RSB ‘DONE 
0080 QO MACSCK_BYT_TRUN:: 
02 AS 85 9080 1 tstw #(R5) :POSITIVE VALUE? 
01 AS ag 0092 ; TSTW = 1 (RS) SYES=--UPPER 3 BYTES MUST bi 9 
38 if 009 4 BNEQ MACSTRUNC_ERR SIF NEQ TRUNCATION ERROR 
03 AS) 695 «(0097 5 TSTB =—-3(R5) et 
33 12 «009A é BNEQ § MACSTRUNC_ERR 
OF 11 009C¢ 7 BRB 20$ L IS WELL 
FFFF 8F 02 AS Bi O09E 228 108: CMPW 32 (RS) , #=1 UPBER WORD MUST BE ALL ONES 
29 12 O0A4 99 BNEQ MACSTRUNC_ERR - IF NEQ THEN TRUNCATION ERROR 
FF BF 01A5 91 O0A6 0 CMPBs«41.(R5) = i SECOND BYTE MUST BE ALL ONES 
32 12 O0AB 231 BNEQ  MACS$TRUNC_ERR :IF NEQ TRUNCATION ERR 
50 01 DO OOAD 3¢ 20$: MOVL #1,RO ‘RETURN SUCCESS 
05 0080 RSB 
S01 «338 44 
9081 36 : : FUNCTIONAL DESCRIPTION: 
dos 38 : THIS ROUTINE CHECKS THE VALUE ON THE TOP OF THE VALUE STACK 
081 239 ; FOR WORD TRUNCATION 
9081 40: 
Sos S427 
0081 rk MACSCK_WRD_TRU1: 
55 04 AE D .( aoe MOVAL  4(SP).RS :POINT TO WORD IN QUESTION 
07 10 00B5 245 BSBB’ MACSCK_WRD_TRUN :GO CHECK FOR TRUNCATION 
03 50 €8 0087 46 BLBS RO, 108" ‘BRANCH IF ALL OK 
02 AS BA BA 24 CLRW =. 2¢R’5) :NO=-CLEAR TRUNCATION ERROR 
5 D 268 10$: RSB TALL DONE 
E 249 MACSCK_WRD_TRUN:: 
02 AS 8 : 50 TSTw #<R5) SUPPER WORD 0? 
08 1 C 31 BEQL 0$ TIF EQL YES=-OK 
FFFF 8F 02 A5 81 00C3 : CMPW 3 =s- 2 (RS) , #1 iNO-<1S IT ALL ONES? 
04 1 C9 «5 BNEQ MACSTRUNC_ERR SIF NEQ NO=-TRUNCATION ERROR 
50 01 OD CB 34 10$:  MOVL  4#1,RO ‘RETURN SUCCESS 
© a) a 


MACSMACSUB 
v04-000 


S 
C 


J.11 
ye EAE ASSEMBLER 


K ROUTINES MO See 1obe Oiitdste YMACKO sreamactoB ene 


MACRO. SRC JMACSUB.MAR; 1 


; REPORT TRUNCATION ERROR 


OR 

EC 

iF 

60 

6] MACSTRUNC_ERR: 
6 8 #FLGSV_P2,(R11),10$ 
64 

65 

66 

67 

68 


;BRANCH IF PASS 1 


C 
$MAC_P2_ERR DATATRUNC : Report error 


SMAC_ERR_ DATATRUNC 
ting a 


10$: ; Get message code 
s ISSUE ERROR TO PASS 2 AND RETURN 


RETURN ERROR 
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v04-000 TRUNCA 873Eb-|98c 8954951 t 2SRACSUB-MA nv | 


am 
o 
=m 


TINES FOR 
- TION CHECK ROUT! MACRO. SRCJMACSUB.MAR; 1 (9 
E7 10 p++ 
ef 4 > FUNCTIONAL DESCRIPTION: 
ef zs 3 CHECK FOR SIGNED BYTE TRUNCATION 
gee 75 ie- 
0E7 i: 
E7 277 MACSCK_SBY_TRU1: 
55 04 AE D £7 A: MOVAL 4(SP).RS :POINT TO WORD IN QUESTION 
14 «1 EB 27 BSBBe MACSCK_SBY_TRUN ‘CHECK FOR TRUNCATION 
10 50 €8 OOED 0 BLBS  R0,20$ ‘BRANCH IF ALL IS WELL 
50 bs oFO CLRL = RO SASSUME POS BYTE 
6 5 OOF TSTB = (RS) [POS OR NEG. BYTE? 
92 18 OF4 BGEQ 108 SIF GEQ POS 
D OF6 4 DECL RO SNEGATIVE=-MAKE =1 
02 a5 50 80 OOF 5 10$ MOVW = RO, 2(R5) ‘STORE <1 
01 a5 4650) «=690-—s«OOFC 6 MOVB — RO; 1(R5) Ries 
05 0100 7 20$:  RSB : DONE 
0101 8 MACSCK_SBY_TRUN:: 
51 4 0101 89 CLAL sR sASSUME POSITIVE 
65 95 0103 290 TSTB = (RS) :CHECK SIGN OF BYTE 
02 18 0195 91 BGEQ 108 ‘BR IF GEQ 
51 07 0107 3¢ DECL = RY [MAKE 0 INTO 1 
02 a5 51 81 0109 293 10S: CMPW 3S saR1,2(R5) :DOES HIGH WORD HAVE RI“HT SIGN? 
CO. (12 9190 94 BNEQ § MACSTRUNC_ERR SIF NEQ NO=-ERROR 
01 A5 51 91 O10F 295 CMPB Ss R17, 1(R5) i YES-—HOw ABOUT SECOND BY*S? 
BA 12 113 9 BNEQ § MACSTRUNC_ERR 31 
50 01 DO 011 9 MOVL #1,RO ‘RETURN SUCCESS 
05 0118 298 RSB 
0119 299 
0119 00 ;++ 
0119 1 : FUNCTIONAL DESCRIPTION: 
0119 303: CHECK FOR SIGNED WORD TRUNCATION 
0119 304: 
0119 05 ;-- 
0119 06 
119 07 MACSCK_SWD_TRU1: 
55 04 AE DE 119 308 MOVAL  4(SP).RS sPOINT TO WORD IN QUESTION 
10 10 011D 309 BSBBe MACSCK_SWD_TRUN [CHECK FOR TRUNCATION 
0c 50 €8 O11F 310 BLBS R020 SBRANCH IF ALL IS WELL 
50 D4 0122 311 CLRL = RO. SASSUME POS. B 
65 BS 0124 1 TSTw = (RS) :POSITIVE? 
iy 18 1 6 1 BGEQ 10% SIF GEQ YES 
bp? (01 14 DECL RO [NO--MAKE = 
02 a5 50 B80 O12A 315 10$: MOV  RO,2(RS) [FIX THE ERROR 
05 O12 1 20$: RSB 
12F 317 MACSCK_SWD_TRUN:: 
51 04 O12F 18 CLAL aR SASSUME POSITIVE 
65 65 0131 31 TSTw (RS) SCHECK SIGN OF WORD 
2 18 1 0 BGEQ 10% ‘BR IF G 
1 »p7 01 1 DECL RI [MAKE 0 INTO -1 
02a5 51 81 1 : 10$ CMPW SORT 2(R5) iS1GN OF UPPER WORD CORRECT? 
92 1 BNEQ  MACSTRUNC_ERR [IF NEQ NO--ERROR 
50 01 p 130 4 MOVL #1,R0 SRETURN SUCCESS 
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v04=000 MACSSRC_KEYS SEARCH KEYWORD LIST WITH AB met) :49:14 [CMACRO.SRCJMACSUB.MAR; 1 _ A) 
141 7 .SBTTL MACSSRC_KEYS | SEARCH KEYWORD LIST WITH ABBREVIATIONS 
12] 359 s+ 
141 0 : FUNCTIONAL DESCRIPTION: 
141 : : THIS ROUTINE SEARCHES A LINKED LIST FOR A KEYWORD, WITH 
141 33 ABBREVIATIONS TAKEN INTO ACCOUNT. 
141 5 : INPUTS: 
O141 ; ; RS POINTER TO FIRST ELEMENT OF LINKED SYMBOL LIST 
o141 33 : OUTPUTS: 
gi41 41 : RO 0 NOT FOUND OR MULTIPLE PARTIAL MATCHES 
0141 rk : R1 0 NOT FOUND OR MULTIPLE PARTIAL MATCHES 
0141 44; <>0 ADDRESS OF SYMBOL BLOCK. 
0141 45 ; 
gay ap 
0141 48 MACSSRC_KEYS:: 
O3FO 8F BB 0141 49 PUSHR #M<R4,R5,R6,R7,R8,R9> ;SAVE REGISTERS 
56 655 00 0145 350 MOVL . ;POINT TO LINKED LIST 
57 O000'CF 9E 0148 351 MOVAB WMACSAB_TMPSYM,R7 :POINT TO SYMBOL IN QUESTION 
58 87 9A 014D 3g MOVZBL (R7)+,R8 ‘GET LENGTH OF SYMBOL 
59 4 m133 353 CLRL :CLEAR PARTIAL MATCH INDICATOR 
0152 355 : CHAIN THROUGH LIST LOOKING FOR SYMBOL 
015 56 
50 04 A6 QA §135 57 jos: ore SYM$B_NAME(R6) ,RO ; Get offset to symbol count/name 
-_ mee Bie 58 SUBL 5 * 3; and form its address 
51 80 9A QI15A 59 MOVZBL (RO)+,R1 3; Get count byte and advance pointer 
60 51 67 . 3 8128 409 — R8 (R?) ,R1, (RO) i Fing the substring in here? 
56 66 «00 0164 2 20$:  MOVL SYMSL_LINK(R6),R6 : No--Link to next 
E9 12 0167 36 BNEQ 10% SIF NEQ GO CHECK IT OUT 
50 7C 0169 364 30S: CLRQ = RO SASSUME NOT FOUND 
59 oS 0168 65 TSTL = RO tWAS THERE A PARTIAL MATCH? 
0 13 0160 366 BEQL 50% SIF EQL NO--RETURN NOT FOUND 
50 06 O16F 67 INCL RO ‘YES=-RETURN 1 FOR FOUND 
51 39 00 71 68 MOVL R9,R1 RETURN ADDRESS IN R1 
50 oN 9 126 9 40$:  MOVL #1,R0 SRETURN SUCCESS 
51 6 00 017 71 MOVL  R6,R1 aH 
O3FO BF BA O17C 2 50$: POPR #*M<R4,R5,R6,R7,R8,R9> :RESTORE REGISTERS 
05 180 3 RSB 
f° : HERE IF FOUND 
181 i é0s: 
50 04 46 9A 0181 8 sith SYM$B_NAME (R6) ,RO : Get offset to symbol count/name 
50 6 5 3 185 7 SUBL RO,R6,RO ; and form its address 
01 A0 67 91 «0189 0 CMPB =s-« CR?) , (RO) : Did it match on first character? 
d5 18D BNEQ 208 tIF NEQ NO--NOT A MATCH 
3¢ D 18F : TSTL = =oR “WAS IT A PERFECT MATCH? 
es. 4 191 BEQL 408 SIF EQL YES--GO RETURN 


DoDD DOOD 


Ss Tos Tomas Da Bs Dice, id Died, Bid, ac Bit Bid iid iid id, i id Dd dh ad id dh id id i id Riad id id 
ceececececececccccoecoce 
QDOOQAQAAQ 


AQNOAQOOOQAAOQAIAa 


rr 


MACSMAC SUB SUBROUTINES FOR VAX=1 
VO6-000 MACSS EYs SEARCH 


CSeRC LR EYUORD et nol t, aa S-SEb=138¢ 89:25:11 EMACKOSskeomActus.nar;1 29 cfd, 
Gu _ gi i Aig MEME AUR CARLO gL 
59 06 01 6 MOVL  R6,R9 SNO==SAVE ADDRESS OF THIS PARTIAL MATCH 
C8 4«11+«019A BRB 20$ + CONTINUE LOOKING 


——_——_—— 


N 11 
UTINES FOR VAX-11/780 ASSEMBLER I¢° SEP=1984 9 :09:11 VAX/VMS Macro V04-00 Page 12 
RT LOWER CASE TO UPPER CASE “SEP=1984 01:49:14 [CMACRO.SRCJMACSUB.MAR; 1 (11) 
13¢ 89 -SBTTL CONVERT LOWER CASE TO UPPER CASE 
19¢ 91 ++ 
13¢ : FUNCTIONAL DESCRIPTION: 
19¢ 94; THIS ROUTINE CONVERTS THE (POSSIBLE) LOWER CASE LETTER 
19C 95 ; IN R10 TO UPPER CASE. 
19C 88 s 
136 97 :-- 
19¢ 98 
19C¢ 99 
135 ret 
1A 401 BLSSU LS 
01A2 08 CMPB »#*A/1/4*X20 ILL CHECKING FOR LOWER CASE 
0O1A6 = 40 BGTRU GTRU NOT LOWER CA 
01A8 404 BICB2 20,R10 Se-CONVERT" TO UPPER CASE 
01AB 405 10$: RSB 


MACSCVT_LOWER: : 
CMPB «R10, #*A/A/4+*X20 ;CAN CHARACTER BE LOWER CASE? 
10$ :IF LSSU NO 
R10 :$T 
10$ iF 
#*x :YE 


CS eee 


MACSMACSUB SUBROUTIN 
v04-000 OP 


Leb A Ad 
2m 
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FOR VAX=11/780 ASSEMBLER 16-SEP-1984 8 7:09:11 YAX/VMS Macro V04-00 Page 
PUT OPEN INPUT FILE “SEP=1984 01:49:14 LMACRO.SRCJMACSUB.MAR; 1 (12) 


-SBTTL MACSOPEN_INPUT OPEN INPUT FILE 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED TO OPEN THE INPUT FILE 
INPUTS: 
RO ADDRESS OF FDB 
OUTPUTS: 
FILE IS OPENED. CREATION TIME PLACED IN SUBTITLE BUFFER. 


Sete Sse Se Ge Ge Ge Ge Ge Se Ge Ge 


MDMMOWW™MS SP KAOWONINY MD NOON AOMAAOAOOHOOOAOOMOOOO 1 


MACSOPEN_INPUT:: 
OOFE 8F 8B PUSHR #*M<R1,R2,R3,R4,R5,R6,R7> 
: SAVE REGISTERS 
Q000'cCF 50 00 MOVL RO W*MACSGL CURINFDB SET As CURRENT FDB 
OO3C'CF O08 AO 9E MOVAB 8(RO) ACSINPUT RAB+RABSL : POINT RAB TO FAB 
47 AO 02 90 MOVB = #2, Oise BROS 3 a Fix ED AREA SIZE OF 2 
AO OF PUSHAB FABSB_R Hy SiR ‘STACK RECORD FORMAT ADDRESS 
SOPEN FAB= RTRO) [OPEN THE FILE 
ERR= =BtR0) = _OPN_INP 
03 50 gS BLBS RO,5$ : Branch if OK 
00E0 ~=s31 BRW 106$ 
0068 19 €5 BBCC #FLGS$V_SEQFIL,(R11),10$ ;ASSUME NOT SEQUENCED FILE 
03 9 91 10S: CMPB = s @ (SP) +, #FABSC_VFC 15 IT SEQUENCED? 
04 le BNEQ 208 F NEQ NO 
068 19 € BBCS #FLGSV_SEQFIL,(R11),20$ :YES--SET FLAG FOR PASS 2 
50 OO000°CF 9E 20$: MOVAB W*MACSINPUT_RAB,R TO INPUT RAB 
2c AO O000'CF 9E VAB  W*MACS$GL_RECHDBUF ,RABSL ABAD) sSET RECORD HEADER BUFFER ADDRESS 
SCONHECT RAB=(RO CONNECT RECORD STREAM 
ERR=W USRACSERR_ CONNECT 
03 50 +€8 BLBS 0, 21$ 
0085 = 31 106$ RANCH IF ERROR 


BRW 
SASCTIM_S TIMBUF=L“°MACSAL_FTIM piers 
TIMADR=L“MACSINPUT "XRB+XABSO_C 


COPY FILENAME AND CREATION DATE TIME TO VM FOR PASS 2 (IF PASS 1) 


~m 
_ 
wn 


convent FILE CREATION DATE/TIME 


COPY F AME INTO eg BUFFER 


T MAKE SURE THE FILENAME FITS IN THE SPACE PROVIDED 


ne 
end 
zm 
“nz 


CREATE TwO DESCS 
POINT ONE TO THE CURRENT FILE SPEC 
POINT OTHER TO SUBTITLE FILE SPEC 
THEN TRIM TO FIT 


a ed dd td ad I OOH MHMMMMOCOVVCTVVOOCWWWWIO>r>r>r>r>r wr \wrYKrr>r>rrrrrrrrr ze 


AOU BB BEBE BWW nonononononononony 3 OOO 
WRI OOONANE WN ODO NOAUE WN OO DDNAUN EWN OOD NOAUE WN OO OONOUSWR OOO 
uw 
ot 


2.090000 00 00 0d Gd Gd Cn 00 Cd OD 00 Cd OD — — 


50 Q00000000°EF 00 OVL MACS$GL_CURINFDB,RO POINT TO FOB AGAIN 
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MACSMACSUB SUBROUTINES FO SEP=1984 02:09:11 VAX/VMS Macro V04-00 Page 
v04-000 MACSOPEN_INPUT OPEN INPUT FILE ety Pi Re EMACRO.SRe MACSUB.MAR; 1 
51 CAO 9A O21F 464 MOVZBL FABS$B_FNS+8(RO),R1 3GET LENGTH OF FILENAME STRING 
52 if 40 465 MOVL Tee eee cROD Ro :GET ADDRESS OF FILENAME STRING 
QOOOO000'EF 62 51 8 ; 466 MO\ C3 RI, (Re) - 
F 46 L*MACSAB_TMP_SPEC 
7E «67C f 468 CLRQ  =(SP) 
O0000'CE O0°BF 90 1 46 MOVB #DSC$K_CLASS_S, - ;DESC CLASS 
7 470 DSC$B_CLASS(SPS 
O0000'CE O00°8F 90 7 471 MOVB #ODSC$R_DTYPE_T, - :DESC TYPE 
D 476 DSC$B_BTYPE (SPS 
50 09000090" EF b0 D 47 OVL MAC$GC CURINEDB. RO :POINT TO FDB AGAIN 
51 CAO 9A 0244 474 MOVZBL FABSB_FNS+8(RO),R1 sAGAIN...GET LENGTH OF FILENAME STRING 
0000 ¢E 51 90 0248 475 OVB R1, DSC$W_LENGTH(SP) 3GET CURRENT LENGTH 
0000'CE GOOO0000'EF dE 4D 476 MOVAL L“MACSAB_TMP SPEC, - 
0 56 47 DSC$A_POINTER(SP) :GET ADDRESS OF RESULT 
57 SE dO 0256 478 MOVL SP, R? :SETUP POINTER TO STR DESC. 
0259 479 
7E 7C 0259 480 fLRQ 0s = (SP) 
OOOO'CE OO0'8F 90 0258 481 MOVB #DSCS$K_CLASS_S, - ;DESC CLASS 
61 48¢ DSC$B_CLASS(SPS 
QOOO'CE O0°B8F 90 0261 4 MOVB #DSCSR_DTYPE_T, - :DESC TYPE 
0267 484 bs¢$B BTyPE (SPS 
0000'CE 20 90 be67 485 MOV #32, BSCS$W_LENGTH(SP) | ;GET CURRENT LENGTH 
QOOOO'CE O000'CF DE O $¢ 486 MOVAL W*MACSAB SBT FILE, - 
027 487 DSC$A_POINTER(SP) :GET ADDRESS OF RESULT 
56 SE 00 9 23 488 MOVL SP, Rb :SETUP POINTER TO STR DESC. 
56 «DD $378 490 PUSHL 6 ; OUTPUT STRING DESC ADDR 
57 DD 078 491 PUSHL R7 : INPUT STRING DESC ADDR 
00000000'cF 02 FB O27A 49@ CALLS #2, G*LIBSTRIM_FILESPEC ; TRIM TO FIT 
32 50 ~€9 028) 493 BLBC = RO, 1008 ; EXIT ON ERROR 
50 Q0000000°EF DO 0284 495 MOVL § MACS$GL_CURINFDB,RO ; Point to FDB again 
LGSV_UPDFIL, ° 3; Assume e is not being update 
00 68 27 €5 0288 496 - BBCC #FLGS$V-UPDFIL,(R11),30$ file i bei dated 
OOOO'CF 9F O2BF 498 PUSHAB W*MACSINPUT_RAB ; Push parameters: RAB address 
-00B8 CO DD 0293 499 PUSHL FABSC_BLN+NAMSC_BLN+8(RO) ; Update files List address 
04 13 0297 501 BEQL 40$ ; If EQL zero their are no update files 
00 68 27 €2 ta 288 60s BBSS #FLGSV_UPDFIL,(R11),40$ ; Flag this file as being updated 
Q000°CF  9F BS 30 504 PUSHAB W*MACSGT SCB ; SUM control block 
00000000'GF 03 FB Q2A1 505 CALLS #3,G*SUMSINIT_EDIT : Initialise update files 
0B 50 £9 O2A8 506 BLBC  RO,100$ : Error if LBC 
SE 10 CO OgAB 507 ADDL #16, SP SRESTORE STACK POINTER 
OOFE 8F BA O2AE 508 POPR #*M<R1,R2,R3,R4,R5,R6,R7> 
0282 509 ;RESTORE REGISTERS 
50 01 0 028 210 MOVL #1,R0 :SET SUCCESS 
0e86 318 
FD47" 31 0286 513 100$: BRW MACSLAST_CHANCE :GO TO LAST CHANCE HANDLER 
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SUBROUTINES FOR VAX=11/780 ASSEMBLER 5 p1 4 AX/VMS Macro v04-00 
MACSRESCANCH RESCAN CURRENT CHARA RAC TER 1978 1384 8¢ 933] MACRO. SRCJMACSUB.MAR; 1 
83 13 -SBTTL MACSRESCANCH RESCAN CURRENT CHARACTER 
83 i$ p++ 
83 18 ; FUNCTIONAL DESCRIPTION: 
B9 0; THIS ROUTINE BACKS UP THE LINE POINTER AND RESETS THE NEXT 
83 1; CHARACTER SO AS TO RESCAN THE CURRENT CHARACTER. 
89 : i=. 
89 4 
ag 5 MACSRESCANCH:: 
50 QOO00'CF 9E 0289 526 MOVAB W*MACS$GL_LINEPT,RO :GET POINTER TO MACSGL_LINEPT 
0000'8F 60 861 O ef 527 CMPW ss #MATSAB_ LINEBF ‘AT BEGINNING OF LINE? 
02 13 O02C 528 BEQL 10$ SIF EOL YES 
60 07 02C5 2¢? DECL (RO) ‘ NO=<BACK IT uP 
05 02¢7 530 10$ RSB 
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MACSMACSUB SUBROUTINES FOR VAX=11/780 ASSEMBLER 1 ~SEP-1984 02: :09:11 VAX/VMS Macro V04-00 
v04-000 MACSOPTIMIZEXPR DELETE EXPRESSION =SEP=1984 01:49:14 YRACRO SR MACSUB.MAR; 1 
c ; .SBTTL MACSOPTIMIZEXPR DELETE EXPRESSION 
C 4 ;++ 
c 5 : FUNCTIONAL DESCRIPTION: 
C : ; MACSOPTIMIZEXPR IS CALLED TO REMOVE THE CODE TO EVALUATE AN 
¢ : ; EXPRESSION FROM THE INTERMEDIATE BUFFER. THE EXPRESSION IS 
¢ : POINTED TO BY 'MACSGL_EXPPTR’ AND 'MAC$GL_EXPEND’. ANY MACRO 
C 40 ; T WITHIN THIS RANGE IS COPIE TRE RE 
02c8 49541 : INTERMEDIATE CODE IS DELETED. ALL POINTERS AND COUNTERS 
0 C 38 : ARE UPDATED (EXCEPT MACSGL_EXPPTR AND MACSGL_EXPEND). 
8 C 44 ;-- 
0268 545 
0 ¢ 246 NACSOPTIMIZEXPR: 
O1F8 8F BB 02CB 54 #°M<R3,R4,RS,R6,R7,RB> ;PRESERVE REGISTERS 
58 OO00'CF DO 0 CC 6548 MOVE” W°MACSGL_EXPPTR,RB POINT To of XPRESSION START 
57 QO0O00'CF DO O2d1 549 MOVL WeMACSGL - “EXPEND .R? ‘AND END OF EXPRESSION 
58 57 D1 0206 550 CMPL RB i1$ THERE ON EXPRESSION? 
3c 82613) «0209551 BEQL 84 bg" F EQL NO 
56 658 ~ =O 0208 038 MOVL  R8,R6 ‘COPY START OF EXPRESSION POINTER 
FF BF 66 «691 «OO DE 553 10$ CMPB ss (RO) L #AXFF ;MACR O LINE? 
OD 13 O262 554 BEQL 0$ F EQL YES 
50 66 9A 0264 555 MOVZBL (R6),RO <NO--EXPRESSION COMMAND=-GET LENGTH 
56 «6500 «CO sC(O2E7? «= «556 ADDL2 RO, R6 :SKIP THE EXPRESSION 
0000'CF 50 CO O2EA 557 ADDL2 RO.W*MACSGL_INTCNT S INCREASE REMAINING NBYTES IN BUFFER 
11. 11 O2EF 558 BRB 30$ ; 
oF I 559 ; 
9 FA 360 ; : MACRO LINE=-COPY DOWN 
50 02 a6 B80 03F1 36¢ 50s: MOVW. «2 (R6) RO :GET MACRO LINE LENGTH 
50 (04 c0 0275 56 ADDL2 #4,RO [COUNT OVERHEAD BYTES 
68 66 50 2 er 564 MOVC3 RO. (RO), (RB) ‘MOVE MACRO LINE 
58 53 DO O2FC 565 MOVL R3.RB ‘UPDATE POINTER 
56 51—Ss«éi GFF 566 MOVL  R1.R6 *POINT PAST MACRO TEXT 
57 56 D1 O 02 567 30$:  CMPL  R6.R7 SEND OF EXPRESSION? 
D7 1F 0305 568 BLSSuU-:10$ :1F LSS NO 
53 58 00 0307 569 MOVL. R8,R3 [COPY END OF EXPR. POINTER 
50 59 57 C3 030A 570 SUBL3 R7.R9,RO : COMPUTE LENGTH OF CODE TO MOVE 
04 15 0308 571 BLEG 40 [IF LEQ NOTHING 
68 66 30 28 031 O78 MOVC3 RO, (R6), (RB) ;MOVE CODE 
59 53 DO 0314 573 40$: MOVL  R3.R9 “UPDATE FRAME POINTER 
01F8 BF BA 0317 274 50$: POPR #°M<R3,R4,R5,R6,R7,RB> RESTORE REGISTERS 
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MACSMACSUB SUBROUTINES FOR VAX=11/780 ASSEMBLER Ig-Se SEP 71984 02: :09:11 VAX/VMS Macro Vv04-00 
v04-000 MACSSKP_OPR SKIP TO NEXT OPERAND OR EOL 49:14 YRACRO SRe MACSUB.MAR; 1 
1¢ a .SBTTL MACSSKP_OPR SKIP TO NEXT OPERAND OR EOL 
1¢ 8 p++ 
\ e} ; FUNCTIONAL DESCRIPTION: 
1¢ : ; MACSSKP OPR tite SCAN TO A COMMA OR END=OF = LINE. THIS IS 
1¢ 8 ; DONE WHEN AN ERROR IS DETECTED $0 AS TO PREVENT MULTIPLE 
0 iC 3 4: ERROR WRESSAGES PER OPERAND. If AN END-OF-LINE IS ENCOUNTERED 
0 IC 85 ; THE OPERAND FLAG IS CLEARED AND THE BEGINNING OF LINE FLAG IS 
Oe Ro: 
8 1¢ 8 i-- 
1¢ 
031C 90 MACSSKP_OPR:: 
1768 OD €1 O31C 591 BBC #FLGSV OPRND,(R11),40$ ;BRANCH IF NOT IN OPE RAND FIELD 
0 SA 91 0320 298 10S: CMPBsaR10,, CR :VES@=IS. CHARACTER CR? 
0A 13 «0 59 BEQL 20 SIF EQL 
2c «SA 91 «(0325594 CMPB = saR10, #*A/,/ SNOm<1S It A COMMA? 
0D 13 0328 595 BEQL 40$ [IF EQL YES 
FCD3" 30 O32A 296 BSBW  MACSGETCHR [NO=-GET NEXT CHARACTER 
F1 11 0320 59 BRB 10$ ‘LOOK FOR NEW LINE OR COMMA 
00 68 OD €5 O32F 598 208: BBCC  #FLGS$V_OPRND, ( 30$ :CLEAR OPERAND FLAG FOR NEW LINE 
00 68 01 Ee 03 3 599 30$:  BBSS  #FLGS$V “Bor aI "263 ‘FLAG AT BEGINNING OF LINE 
5 0337 600 40$:  RSB 
0338 601 
03 60¢ MACSSKIPSP: : 
20 SA 91 0338 603 10$: CMPB R10, #*A/ / :1S IT A SPACE? 
10 1A 0338 604 BGTRU 30$ SIF GTR NO--NOT SPACE-LIKE EITHER 
09 13 033D 605 BEQL 20$ [IF EQL VES=-READ NEXT CHARACTER 
Q0000000'EF4A D5 O33F 606 TSTL | MACSAL_CHRTABLR10) :CHECK ENTRY IN TABLE 
5 12 0346 607 BNEG 30% [IF NEQ NOT SPACE-LIKE CHARACTER 
FCB5' 30 0348 608 20$: BSBW  MACSGETCHR [GET NEXT CHARACTER 
EB 11 0348 60% BRB 10$ :CHECK IT OUT 
05 0340 610 30$:  RSB SRETURN 
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MACSCLOS 


108: 
MACSCLOS 


20$: 


MACSCLS_DEL_OBJ: 
“BBCe 


10$: 


G12 
VAX=11/780_ ASSEMBLER 16-SEP-1984 8 :09:11 VAX/VMS Macro V04-00 
CLOSE ALL FILES “SEP=1984 


249:14 [CMACRO.SRCJMACSUB.MAR; 1 
~SBTTL MACSCLOSE_FILES CLOSE ALL FILES 


;++ 
¢ FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CLOSES ALL POSSIBLY OPEN FILES 


E_FILES:: 

SOISCONNECT RAB=W*MACSINPUT_RAB DISCONNECT INPUT RECORD STREAM 
MOVL Fabes tab CURINFDB,RO GET PTR TO CURRENT FDB 

SCLOSE FAB=8(ROY CrOse INPUT FILE 

BBCC. #FLGSV_OBJXST,(R11),10$ :BRANCH IF NO OBJECT FILE 
SDISCONNECT RAB=W*MAC$6B ect _RAB;DISCONNECT OBJECT FILE STREAM 
SCLOSE FAB=W*MACSOBJECT_ SCLOSE OBJECT FILE 

BSBB  - MACSCLOSE_LI :CLOSE LISTING FILE 

BRW MACSCLOSE-L1B [CLOSE LIBRARIES 

BBCC #FLGsy LSTXST,(R11),20$ ;BRANCH IF NO LISTING FILE 
SDISCONNECT RAB=W*MAC$LIST_RAB DISCONNECT LISTING FILE STREAM 
SCLOSE ips W°MACSLIST_FAB™ :CLOSE LISTING FILE 


s+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CLOSES ALL OPEN FILES, AND DELETES THE OBJECT 


AND LISTING FILE. THIS SHOULD BE CALLED ONLY ON ABORTS. 


#ELGSV OBJXST,(R11),10$ ;BRANCH IF NO OBJECT FIL 
MOVAB W*MACSOBJECT_RAB,RO :GET POINTER TO OBJECT RAB 
MOVL RABSL_FAB(ROY,R1 GET POINTER TO FAB 
ah or ABst_ DLT, FABSL -FOP(R1),.+1 ;SET DELETE BIT IN FAB 
PUSHL SAVE FAB ADDRESS 

SDI SCONNECT RAB=(RO) sDISCONNECT RECORD ACCESS 
POP ;GET FAB ADDRESS wae 

+ FAB=(RO) sCLOSE AND DELETE THE FILE 
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y0s~005 MACSCLOSE_LI6 CLOSE MACRO LIBRARIES mets TRB YRACRO SRE MACSUB.MAR; 1 
ce § -SBTTL MACSCLOSE_LIB CLOSE MACRO LIBRARIES 
cc 8 3 ++ 
eC 3 ; FUNCTIONAL DESCRIPTION: 
aa ge 3 THIS ROUTINE CLOSES ALL MACRO LIBRARY FILES. THE FILES SHOULD 
cc 66 ; BE DISCONNECTED FROM RECORD ACCESS. 
CC 665; 
CC 664 ;-- 
CC 665 
cc 666 MACSCLOSE_LIB:: 
52 0000'CF 09 CC 366 MOVL W*MACSGL_MLB_QUE ,R2 ;POINT TO THE FIRST MLB FDB 
16 «1 DI 668 — BEQL 20$ :1F EQL NO LIBRARIES TO CLOSE 
14 A2. OF 33 sf PUSHAB MLFSL_CTINDEX(R2) ; Address of control table index 
00000000'GF 01 FB 0306 671 CALLS #1,G*CBRSCLOSE 3 Close Library e 
2 $2 DO 03DD 672 MOVL LF SL QLINK(R2) ,R2 : Link to possible next Library 
00000000°8F 5 Di O3E0 67 CMPL Re ,#MACSGL_MLB_QUE sALL DONE? 
EA if O3E7 674 BNEQ 108 :1F NEQ NO 
05 O3€9 675 208: RSB : DONE 
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MACSMACSUB SUBROUTINES FOR VAX-11/780 ASSEMBLER 16-SEP-1984 2:09:11 AX/VMS Macro V04-00 Pa 
v04-000 ALLOCATE/DEALLOCATE VIRTUAL MEMORY =$Eb=1382 :49:14 (CMACRO.SRCJMACSUB.MAR; 1 - (4) 
EA i -SBTTL ALLOCATE/DEALLOCATE VIRTUAL MEMORY 
EA 79 34+ 
5A é 9; ; FUNCTIONAL DESCRIPTION: 
EA 6 gi ; THIS ROUTINE IS CALLED TO ALLOCATE 1 PAGE OF VIRTUAL MEMORY. 
EA 6 : AN ATTEMPT IS MADE TO GET MEMORY FROM THE RETURNED toe t LIST. 
5A ° ¢ 3 3 IF THAT FAILS, LIBSGET_VM IS CALLED TO ALLOCATE A NEW PAGE. 
ie 
EA MACSALL_1 a 
50 0000'DF OF 9 + é : REMQ * aW*MACSGL _FREE_LST,RO {RETUNNER PAGES CiST THE 
13. 1C OSEF 691 BVC 10$ SIF V=CLEAR WE GOT ONE 
00000000 ' GF wae t FA 8 Fi O26 CALLG L“*MACS$G_1_PAGE, G*LIBSGET’ =n VNONE THERE=-ALLOCATE A NEW PAGE 
20 50 E9 ae 69 BLBC RO. NO_MEM™ BRANCH io ALLOCATION FAILURE 
50 0000'CF DO OSFF 694 MOVL W*MACSGL _BASEADDR ,RO :PICK UP THE BLOCK ADDRESS 
05 0404 695 10S: RSB ‘RETURN WITH BLOCK ADDRESS IN RO 
Sse 38 
0405 698 : FUNCTIONAL DESCRIPTION: 
0405 00 ; THIS ROUTINE IS CALLED TO DEALLOCATE 1 PAGE OF VIRTUAL MEMORY. 
0405 701 ; THE DEALLOCATED PAGES ARE PLACED ON A LINKED LIST POINTED TO 
0405 702; BY MACSGL_FREE_LST. 
0405 703; 
ocos | fos 
0405 706 MACSDEA_1 PAGE: 
0000'CF 60 OE 0405 707 " Pisave * (RO) -W*MACSGL_FREE_LST ; INSERT THE PAGE INTO THE FREE LIST 
05 O40A 708 
58S oe 
0408 a1] : FUNCTIONAL DESCRIPTION: 
0408 a8 : THIS ROUTINE ALLOCATES TWO CONTIGUOUS PAGES OF MEMORY. 
0408 714; THE ADDRESS IS RETURNED IN RO. 
0408 715; 
gigs rg 
40B 718 MACS$ALL_2 tr wer 
06000000 ' GF 00000000 ‘EF FA 0408 719 CALL L“MACSG 2_PAGES,G*LIBSGET_VM ;TRY TO GET THE PAGES 
06 50 €9 416 720 BLBC. RO. NO_MEM~ ;BRANCH IF ALLOCATION ERROR | 
50 0000'CF o rh 4 1 nyt te W*“MACSGL_BASEADDR,RO :GOT IT--GET THE ADDRESS | 
FBDE' $3 41F 7 : NO_MEM: BRW MACSERR_NOMEM ;REPORT Le ene ERROR | 
4 t 4 7 (NO RETUR | 
4 £58 s¢s 
; 3 Functional description: | 
4 7 § : This routine deallocates a block of virtual {penery. if the block 
4 730 ; is 1 page it is returned _. she free list; if it is >1 page the | 
4 731 3 block is returned to the 
? 4 ¢ 3 This routine is used to dedilocate MXB blocks. 
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v04-000 ALLOCATE/DEALLOCATE VIRTUAL MEMORY ety ERE YRACRO SRE MACSUB.MAR; 1 . dy v4 
4 4 ; Inputs: 
4 5; RO = Address of block to deallocate 
ri § 3 Offset MXBSL_PAGES contains the size of the block in pages 
4 738 ;-- 
4 739 
4 740 MACSDEAL_BLOCK:: 
01 O04 A0 Di 04 74) CMPL MXBSL_PAGES(PRO) ,#1 ; Is this block 1 page? 
pp 13 04 6 4g EQL § MACSDEA_1_PAGE ; Yes if EQL 
0 dD 04 74 PUSHL RO ; Put address on stack 
| 2 b? 42A 744 MOVL SP,R1 3 and save stack address 
7E 04 88 9? 4 745 ASHL #9 ,MXBSL_PAGES(RO),-(SP) ; Put block size (in bytes) on stack 
5 E 00 04 £8 MOVL SP,RO 3 and save stack address 
51 DD 04 74 PUSHL Ri : Form argument block 
50 DD 04 748 PUSHL Ro ¢ on stac 
QO0000000'GF O02 FB 0439 749 CALLS #2,G*LIBSFREE_VM ; Return virtual memory 
5E 08 CO peee 750 ADDL #<d%4>,SP ; Clean up stack 
05 044 751 RSB 
0444 036 
0444 75 
0444 754 344 
0444 755 ; Functional description: 
0444 £28 $ 
0444 757; This routine allocates a block of virtual memory. The block 
0444 758; size is rounded up to 1 page. 
0444 759; 
444 760 ; Inputs: 
444 761; R1 = Number of bytes required 
0444 roe : 
0444 763 ; Outputs: 
0444 764; RO = Address of memory block 
0444 765; R1 = Number of pages allocated 
0444 766; 
0444 767 ;-- 
0444 768 
0444 769 MACSALL_BLOCK:: 
51 QOOOO1FF 8F CO 0444 «770 ADDL2 #511,R1 ; Round number of bytes to multiple 
51 QOOOO1FF 8F CA 0448 £771 BICL2 #511,R1 ; of 512 bytes. 
rm. St... fe bees ak ASHL #-9,R1,-(SP) ; Also convert to number of pages 
01 6€ D1 0457 77 CMPL =s( SPS, #4 : Is 1 page required? 
04 \s 45A 774 BNEQ 3; No if NEQ 
8c 1 45C 775 BSBB MACSALL_1_PAGE ; Get 1 page 
1D 11 045 776 BRB 208 
46 777 10$: 
51 DD 046 ore PUSHL 3; Stack bytes required 
50 5E 00 046 77 MOVL SP,RO 3 and save its address 
OOOO'CF DF 046 780 PUSHAL W*MACS$GL_BASEADDR ; Push address to return block address 
50 DD 0469 781 PUSHL 3; and address of bytes required 
00000000 ' GF 96 . 4 7 ¢ CALLS #2,G*LIBSGET_VM ; Get memory 
AA E 4 7 BLBC N ; Branch if error 
50 O00'CF OD 47 784 MOVL W*MACSGL_BASEADDR,RO ; Get base address of allocated block 
SE 04 C€ 47A 785 ADOL #<124>,SP : Clean stack 
470 7 $ 20$: 
51 BED) 443 4 POPL R1 ; Get pages allocated 
0 4 7 3 RSB 
481 789; 
481 790; 
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12F RG 0% 
FLGSY_REBLST : MACSCE-URD-TRUL 5 ; 
ee ke : 8 MACSCK-WRD-TRUN BERG 04 
FLGSVCNEUEND. O0000A MACSCLOSE_FILES 4E RG 04 
pLeey newer . MACSCLOSE-LIB cc RG 04 
ft aay et oe = 90000 MACSCLOSE-LIST 0 RG 4 
FLESV-NULCH = 0000008 NACSCLS_DEL OBJ Q0005A2 RG 04 
FLGSV~0B4 = 3000001 MACSOLAC BLOCK 1000 438 RG 04 
FLG$V_OPNDCHK . ; MACSDEA-T PAGE 0000405 RG 04 
FLGSy~oPTV = 9000002¢ MACSERRORPT eeecsers 6g 4 
tested ad = 90000041 MACSERR, CONNECT teerenee =X 04 
LGSvnPo = 9000000 MACSERR-NOMEN teeeeere =X 04 
rt eevtg = 900000%¢ MACSERR-OPN_INP eesesece =X 06 
FLGSVIRPTIRP = Soopers MACSFAOOT ~ 0000000D RG 04 
FLGSV"SEQFIL = DOpOOSOE RACSEAQUTS 00000009 RG 04 
FLGS _ KAN ras 0 00 oF MA CS$GET CHR RRARARREK x 04 
Senora = 90000014 MACSGL_BASEADDR tanesere =X 04 
FLGSV~STOIRE = 00000019 MACSGL~CURINFDB teeeense X04 
Ay RU hed = 9000002 MACSGL-EXPEND evereres =X 06 
ftesvtocreee = 00000013 MACSGL-EXPPTR eee 5. 
Ee eve dare = 99000024 MACSGL-FREE LST easeners =X 06 
see erie = 90000097 MACSGL-HSHVAL aconeers 65 
pteay"ipant = $0000096 MACSGL-INTCNT aasenens =X 04 
te = Soo000tF MACSGL-LINELN ensereee =X 06 
FLGSV XCRF = 000 MACSGL LINEPT KeKH MER xX 04 
WASNT - si 4 tA M - eeeeneee x Be 

“| sil ekkkenke 
INPSE-BUF SIZ = 00000368 MACSCLoPE One teeeerer X04 
ENT SK Bur Sie = $0001390 MACSGL_PSECTPTR taseress =X 04 
eerreme * cecseeee MACSGL_RECHOBUF eusecers =X 06 
LBRSCCOSE lmkame xX 04 MAC$GT_SCB aeceneee §=6X = 06 
LIBSGET OM. teeneees X06 MACSG_T_PAGE eeoment 2 
i RRERKKKE 
CIBSTRIA FILESPEC = 00000086 X eae Sen ETAUEDES eeeeenee XX 04 
LSTSK_BUFSIZ ma ttiitta MACSHASH SYM O000005A RG 04 
aati tei = 00 MACSINPUT_RAB etavsees oy OF 
LSTSK_TITCE_S1Z ” see's MACSINPU “XAB RERRKERE x 04 
a o> Nagy 90000004 MACSK LIST SIZE eonscens 2 
MABSE-BLKS 8000000¢ MACSLAST_CRANCE -acereinine fe OE 
arene ard te 90000008 MACSLIST~FAB evscesse OS 
sy rg tl 90000000 MACSLIST"RAB seevecee OS 
MABSU-DVLE 80000006 MACSOBJECT_FAB sees 5. 
sete Td teeeeeee X06 MACSOBJECT-RAB easeneee =X 04 
MACSAB_L INEBF eeeeeeee xX b4 MACSOPEN_ INPUT QOOO0TAC RG 4 
srt yy we eereners X06 MACSOPTIAIZEXPR 000002C8 RG 04 
MACSAB_TRPSYM 00000 R 03 ACSPASS 2 ERR aeeeeeee =§=6X | | 04 
trae tte DOOOSEA RG Oe MACSRESCANTH 00000289 RG 04 
MACSALL 2” PAGE 0000408 RG 04 MACSSET_NEW_LSB 90000042 RG = 04 
MACSALL—2~ PAGES pene Re Re MACSSET“PC BOO000E RG 04 
MACSALL BLOC aereeeee xX 4 MACSSKIPSP 0 RG 04 
MACSAL_CHRTAB eeereeee 8X 4 MACSSKP_OPR 000351C RG 04 
MACSCETBYT TROT 000007) RG 04 MACSSRC“KEYS 0000147 RG 04 
sere ALT BO008D RE OG MACSTRUNC_ERR Qodd0CE R04 
MACSCK_BYT_TRUN yee nee MACSWRILS seasesss 04 
MACSCK~SBY-TRUN p 104 RG 04 RAC SUR «FAQUTS _ 99900000 Re 04 
MACSCK~SwD-TRUI 0000119 RG 04 MACS_DATATRU 
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SYMSM_REF = § 
SYMSM_RELPSECT = 
SYMSM_SUPR = 4 

SYMSM_WEAK = 0 
SYMSM_XCRF = 1 

SYMSV_ABS = 4 | 
SYMSV~ASN z 0 000008 
SYM$SV_CRFO = $8 3 
SYM$V_DEBUG = 000000 

YMSV_DEF = S444! 

SYMSV_DELMAC = 0000000 

YMSV_ = 8 tied 

SYMSV_EXTRN = 00003 

SYM$V_GLOBL = 4 4 
SYM$SV_LOCAL = 00000006 
SYM$V_ODBG = Ben RR ORS 
SYMSV_REF = 00000007 
SYMSV_RELPSECT = 00000008 
SYM$V_SUP = Q000000VE 
SYMSV_WEAK = 00000001 
SYMSV_XCRF = 0000000C 
SYMSW_FLAG 00000009 
SYSSASCTIM eereeeee GX 04 
SYSSCLOSE eenaneee GX 04 
SYSSCONNECT eeeeneee GX 04 
SYSSDISCONNECT eeeeeeee GX 04 
SYSS$F AOL aeeeeeee GX 04 
SYSSOPEN eeeeeeee GX 04 
TAB = 00000009 
x1 = 00000400 
x2 = 0000000F 
XAB$Q_CDT keeeeeee =X 04 

fe wm ee ee + 
! i _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
S 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL —e NOEXE NORD NOWRT NOVEC BYTE 
- BLANK , 00000000 < 0.) 01 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABS 00000177 ¢ 375.) 8 ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSTEMP_STOR 00000100 ( 256.) 8 ( 3.) NOPIC USR CON REL GBL NOSHR EXE RD WRT NOVEC LONG 
MAC$RO_CODE_P15 00000481 ( 1153.) 04 ¢( 4.) NOPIC  USR ON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
Nisha italia naib emanate teal 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 


Initialization oe 
zonnene processing 1 


2 00: 00:08. ; 
wr =O BERT ERR 
cess f 9:00:00:51 
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Psect synopsis output : 
Cross-reference output g 
Assembler run totals 62 


The working set Limit was 1500 pages. 
55860 bytes (110 pages) of virtual memory were used to buffer the intermediate code. 
There were 50 pages of symbol table space allocated to hold 898 non-local and 50 local symbols. 
791 source lines were read in Pass 1, producing 24 object records in Pass 2. 
pages of virtual memory were used to define 21 macros. 


tema oocan wr em soe eee eww oeose + 
; Macro Library statistics H 
Macro Library name Macros defined 
-$255$DUA28: CMACRO.OBJJMACRO.MLB: 1 8 
$255$DUA28:CSYSLIBISTARLET.MLB; 2 14 
TOTALS (all Libraries) 22 


There were no errors, warnings or information messages. 


| 
990 GETS were required to define 22 macros. 
MACRO/LIS=L1S$:MACSUB/OBJ=O0BJ$:MACSUB MSRC$:MACSUB/UPDATE=(ENH$:MACSUB) +LIB$:MACRO/LIB 
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